/ Developer CD Series 2000 …ember: Reference Library / Dev.CD Dec 00 RL Disk 1.toast / pc / technical documentation / develop / develop issue 20 / develop issue 20 code / pict tricks.sea / Pict Tricks / CLUTLess / SimpleInC.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 53 69 6d 70 6c 65 | 49 6e 43 2e 63 00 00 00 |..Simple|InC.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 01 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 1a f3 00 | 00 01 ac aa 5d ca c2 aa |........|....]...|
|00000060| 5d ca c2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |].......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 bd 4c 00 00 |........|.....L..|
|00000080| 0d 2f 2a 20 09 0d 09 09 | 09 09 09 09 09 43 4c 55 |./* ....|.....CLU|
|00000090| 54 4c 65 73 73 0d 09 09 | 09 09 09 09 0d 09 09 09 |TLess...|........|
|000000a0| 09 09 09 09 0d 09 09 09 | 49 6e 20 73 6f 6d 65 20 |........|In some |
|000000b0| 69 6e 73 74 61 6e 63 65 | 73 20 69 74 20 69 73 20 |instance|s it is |
|000000c0| 64 65 73 69 72 65 61 62 | 6c 65 20 74 6f 20 73 74 |desireab|le to st|
|000000d0| 6f 72 65 20 70 69 63 74 | 73 20 73 74 72 69 70 70 |ore pict|s stripp|
|000000e0| 65 64 20 6f 66 0d 09 09 | 09 43 4c 55 54 73 20 69 |ed of...|.CLUTs i|
|000000f0| 6e 20 6f 72 64 65 72 20 | 74 6f 20 73 61 76 65 20 |n order |to save |
|00000100| 73 6f 6d 65 20 72 6f 6f | 6d 20 69 6e 20 74 68 65 |some roo|m in the|
|00000110| 20 64 69 73 6b 2e 20 54 | 68 69 73 20 73 61 6d 70 | disk. T|his samp|
|00000120| 6c 65 20 73 68 6f 77 73 | 0d 09 09 09 68 6f 77 20 |le shows|....how |
|00000130| 74 6f 20 63 72 65 61 74 | 65 20 73 75 63 68 20 70 |to creat|e such p|
|00000140| 69 63 74 73 20 61 6e 64 | 20 68 6f 77 20 74 6f 20 |icts and| how to |
|00000150| 70 72 6f 70 65 72 6c 79 | 20 64 69 73 70 6c 61 79 |properly| display|
|00000160| 20 74 68 65 6d 20 62 61 | 63 6b 2e 0d 09 09 09 0d | them ba|ck......|
|00000170| 09 09 09 53 69 6d 70 6c | 65 49 6e 43 2e 63 20 2d |...Simpl|eInC.c -|
|00000180| 2d 20 69 6e 69 74 69 61 | 6c 69 7a 61 74 69 6f 6e |- initia|lization|
|00000190| 20 73 74 75 66 66 20 61 | 6e 64 20 65 76 65 6e 74 | stuff a|nd event|
|000001a0| 20 6c 6f 6f 70 0d 09 09 | 09 43 4c 55 54 4c 65 73 | loop...|.CLUTLes|
|000001b0| 73 2e 63 20 20 2d 2d 20 | 63 6f 64 65 20 74 68 61 |s.c  -- |code tha|
|000001c0| 74 20 64 6f 65 73 20 74 | 68 65 20 63 72 65 61 74 |t does t|he creat|
|000001d0| 69 6f 6e 20 6f 66 20 74 | 68 65 20 63 6c 75 74 20 |ion of t|he clut |
|000001e0| 6c 65 73 73 20 70 69 63 | 74 3b 0d 09 09 09 09 09 |less pic|t;......|
|000001f0| 09 20 20 20 73 68 6f 77 | 73 20 61 6c 73 6f 20 68 |.   show|s also h|
|00000200| 6f 77 20 74 6f 20 64 69 | 73 70 6c 61 79 20 74 68 |ow to di|splay th|
|00000210| 65 20 70 69 63 74 75 72 | 65 73 2e 0d 09 0d 2a 2f |e pictur|es....*/|
|00000220| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 22 53 69 6d 70 |..#inclu|de "Simp|
|00000230| 6c 65 49 6e 43 2e 68 22 | 0d 0d 73 68 6f 72 74 20 |leInC.h"|..short |
|00000240| 6d 61 69 6e 28 29 0d 7b | 0d 09 52 65 63 74 09 09 |main().{|..Rect..|
|00000250| 09 09 09 73 63 72 65 65 | 6e 52 65 63 74 3b 0d 09 |...scree|nRect;..|
|00000260| 52 65 63 74 09 09 09 09 | 09 64 72 61 67 52 65 63 |Rect....|.dragRec|
|00000270| 74 3b 0d 09 52 65 63 74 | 09 09 09 09 09 70 69 63 |t;..Rect|.....pic|
|00000280| 74 52 65 63 74 3b 0d 09 | 0d 09 45 76 65 6e 74 52 |tRect;..|..EventR|
|00000290| 65 63 6f 72 64 20 09 09 | 09 6d 79 45 76 65 6e 74 |ecord ..|.myEvent|
|000002a0| 3b 0d 09 57 69 6e 64 6f | 77 50 74 72 09 09 09 09 |;..Windo|wPtr....|
|000002b0| 74 68 65 41 63 74 69 76 | 65 57 69 6e 64 6f 77 3b |theActiv|eWindow;|
|000002c0| 0d 09 57 69 6e 64 6f 77 | 50 74 72 09 09 09 09 77 |..Window|Ptr....w|
|000002d0| 68 69 63 68 57 69 6e 64 | 6f 77 3b 0d 09 42 6f 6f |hichWind|ow;..Boo|
|000002e0| 6c 65 61 6e 20 09 09 09 | 09 52 65 73 75 6c 74 3b |lean ...|.Result;|
|000002f0| 0d 09 0d 09 2f 2a 0d 09 | 20 2a 20 49 6e 69 74 69 |..../*..| * Initi|
|00000300| 61 6c 69 7a 61 74 69 6f | 6e 20 74 72 61 70 73 0d |alizatio|n traps.|
|00000310| 09 20 2a 2f 0d 09 49 6e | 69 74 47 72 61 66 28 26 |. */..In|itGraf(&|
|00000320| 71 64 2e 74 68 65 50 6f | 72 74 29 3b 20 0d 09 49 |qd.thePo|rt); ..I|
|00000330| 6e 69 74 46 6f 6e 74 73 | 28 29 3b 0d 09 46 6c 75 |nitFonts|();..Flu|
|00000340| 73 68 45 76 65 6e 74 73 | 28 65 76 65 72 79 45 76 |shEvents|(everyEv|
|00000350| 65 6e 74 2c 20 30 29 3b | 0d 09 49 6e 69 74 57 69 |ent, 0);|..InitWi|
|00000360| 6e 64 6f 77 73 28 29 3b | 0d 09 49 6e 69 74 4d 65 |ndows();|..InitMe|
|00000370| 6e 75 73 28 29 3b 0d 09 | 54 45 49 6e 69 74 28 29 |nus();..|TEInit()|
|00000380| 3b 0d 09 49 6e 69 74 44 | 69 61 6c 6f 67 73 28 6e |;..InitD|ialogs(n|
|00000390| 69 6c 29 3b 20 0d 09 49 | 6e 69 74 43 75 72 73 6f |il); ..I|nitCurso|
|000003a0| 72 28 29 3b 0d 09 0d 09 | 4d 61 78 41 70 70 6c 5a |r();....|MaxApplZ|
|000003b0| 6f 6e 65 28 29 3b 0d 09 | 0d 09 2f 2a 20 69 6e 69 |one();..|../* ini|
|000003c0| 74 69 61 6c 69 7a 65 73 | 20 51 44 20 70 72 6f 63 |tializes| QD proc|
|000003d0| 73 20 66 6f 72 20 6f 75 | 72 20 70 75 72 70 6f 73 |s for ou|r purpos|
|000003e0| 65 73 20 2a 2f 0d 09 49 | 6e 69 74 50 72 6f 63 73 |es */..I|nitProcs|
|000003f0| 28 26 6d 79 50 72 6f 63 | 73 29 3b 0d 09 0d 09 2f |(&myProc|s);..../|
|00000400| 2a 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |* ******|********|
|00000410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000420| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000430| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000440| 20 2a 2f 0d 09 0d 09 73 | 65 74 75 70 4d 65 6e 75 | */....s|etupMenu|
|00000450| 73 28 29 3b 09 09 09 0d | 09 0d 09 73 63 72 65 65 |s();....|...scree|
|00000460| 6e 52 65 63 74 20 3d 20 | 71 64 2e 73 63 72 65 65 |nRect = |qd.scree|
|00000470| 6e 42 69 74 73 2e 62 6f | 75 6e 64 73 3b 0d 09 53 |nBits.bo|unds;..S|
|00000480| 45 54 52 45 43 54 28 26 | 64 72 61 67 52 65 63 74 |ETRECT(&|dragRect|
|00000490| 2c 20 34 2c 20 32 30 20 | 2b 20 34 2c 20 73 63 72 |, 4, 20 |+ 4, scr|
|000004a0| 65 65 6e 52 65 63 74 2e | 72 69 67 68 74 2d 34 2c |eenRect.|right-4,|
|000004b0| 20 73 63 72 65 65 6e 52 | 65 63 74 2e 62 6f 74 74 | screenR|ect.bott|
|000004c0| 6f 6d 2d 34 29 3b 0d 09 | 0d 2f 2a 20 09 68 65 72 |om-4);..|./* .her|
|000004d0| 65 20 77 65 20 63 72 65 | 61 74 65 20 61 20 77 69 |e we cre|ate a wi|
|000004e0| 6e 64 6f 77 20 74 6f 20 | 64 69 73 70 6c 61 79 20 |ndow to |display |
|000004f0| 6f 75 72 20 70 69 63 74 | 75 72 65 20 61 6e 64 20 |our pict|ure and |
|00000500| 77 65 20 61 6c 6c 6f 63 | 61 74 65 20 61 20 68 61 |we alloc|ate a ha|
|00000510| 6e 64 6c 65 0d 09 66 6f | 72 20 74 68 65 20 70 61 |ndle..fo|r the pa|
|00000520| 6c 65 74 74 65 20 77 65 | 20 65 78 70 65 63 74 20 |lette we| expect |
|00000530| 74 6f 20 61 73 73 6f 63 | 69 61 74 65 20 77 69 74 |to assoc|iate wit|
|00000540| 68 20 74 68 65 20 77 69 | 6e 64 6f 77 2e 0d 2a 2f |h the wi|ndow..*/|
|00000550| 0d 09 6d 79 57 69 6e 64 | 6f 77 20 3d 20 47 65 74 |..myWind|ow = Get|
|00000560| 4e 65 77 43 57 69 6e 64 | 6f 77 28 77 69 6e 64 6f |NewCWind|ow(windo|
|00000570| 77 49 44 2c 20 6e 69 6c | 2c 20 28 57 69 6e 64 6f |wID, nil|, (Windo|
|00000580| 77 50 74 72 29 20 2d 31 | 29 3b 0d 09 53 65 74 50 |wPtr) -1|);..SetP|
|00000590| 6f 72 74 28 6d 79 57 69 | 6e 64 6f 77 29 3b 0d 09 |ort(myWi|ndow);..|
|000005a0| 0d 09 2f 2f 20 54 48 49 | 53 20 49 53 20 54 48 45 |..// THI|S IS THE|
|000005b0| 20 50 4c 41 43 45 20 57 | 48 45 52 45 20 57 45 20 | PLACE W|HERE WE |
|000005c0| 47 4f 20 41 4e 44 20 50 | 52 45 50 41 52 45 20 54 |GO AND P|REPARE T|
|000005d0| 48 45 20 49 4d 41 47 45 | 20 54 4f 20 42 45 20 53 |HE IMAGE| TO BE S|
|000005e0| 41 56 45 44 20 41 4e 44 | 20 44 49 53 50 4c 41 59 |AVED AND| DISPLAY|
|000005f0| 45 44 0d 09 2f 2f 20 20 | 4d 61 6b 65 20 63 61 6c |ED..//  |Make cal|
|00000600| 6c 20 74 6f 20 67 65 74 | 20 61 6e 64 20 73 65 74 |l to get| and set|
|00000610| 20 61 6c 6c 0d 09 69 66 | 20 28 20 21 20 28 20 53 | all..if| ( ! ( S|
|00000620| 65 74 75 70 50 69 63 74 | 75 72 65 73 28 29 20 29 |etupPict|ures() )|
|00000630| 29 20 72 65 74 75 72 6e | 20 30 3b 0d 09 0d 09 70 |) return| 0;....p|
|00000640| 69 63 74 52 65 63 74 20 | 3d 20 28 2a 67 4f 72 69 |ictRect |= (*gOri|
|00000650| 67 50 69 63 74 29 2d 3e | 70 69 63 46 72 61 6d 65 |gPict)->|picFrame|
|00000660| 3b 0d 09 0d 09 53 69 7a | 65 57 69 6e 64 6f 77 28 |;....Siz|eWindow(|
|00000670| 6d 79 57 69 6e 64 6f 77 | 2c 20 70 69 63 74 52 65 |myWindow|, pictRe|
|00000680| 63 74 2e 72 69 67 68 74 | 2d 70 69 63 74 52 65 63 |ct.right|-pictRec|
|00000690| 74 2e 6c 65 66 74 2c 20 | 70 69 63 74 52 65 63 74 |t.left, |pictRect|
|000006a0| 2e 62 6f 74 74 6f 6d 2d | 70 69 63 74 52 65 63 74 |.bottom-|pictRect|
|000006b0| 2e 74 6f 70 2c 20 66 61 | 6c 73 65 29 3b 0d 09 53 |.top, fa|lse);..S|
|000006c0| 68 6f 77 57 69 6e 64 6f | 77 28 6d 79 57 69 6e 64 |howWindo|w(myWind|
|000006d0| 6f 77 29 3b 0d 09 0d 09 | 69 66 20 28 21 20 67 53 |ow);....|if (! gS|
|000006e0| 68 61 72 65 64 43 6c 75 | 74 20 29 20 09 09 2f 2f |haredClu|t ) ..//|
|000006f0| 20 74 68 65 20 70 69 63 | 74 75 72 65 20 64 69 64 | the pic|ture did|
|00000700| 20 6e 6f 74 20 68 61 76 | 65 20 61 20 27 63 6c 75 | not hav|e a 'clu|
|00000710| 74 27 20 77 69 74 68 20 | 69 74 0d 09 20 20 44 69 |t' with |it..  Di|
|00000720| 73 61 62 6c 65 49 74 65 | 6d 28 4d 79 4d 65 6e 75 |sableIte|m(MyMenu|
|00000730| 73 5b 73 74 75 66 66 4d | 65 6e 75 5d 2c 20 6d 43 |s[stuffM|enu], mC|
|00000740| 6c 75 74 50 69 63 74 29 | 3b 0d 09 43 68 65 63 6b |lutPict)|;..Check|
|00000750| 49 74 65 6d 28 4d 79 4d | 65 6e 75 73 5b 73 74 75 |Item(MyM|enus[stu|
|00000760| 66 66 4d 65 6e 75 5d 2c | 20 6d 55 6e 6d 6f 64 50 |ffMenu],| mUnmodP|
|00000770| 69 63 74 2c 20 74 72 75 | 65 29 3b 0d 0d 09 44 6f |ict, tru|e);...Do|
|00000780| 6e 65 46 6c 61 67 20 3d | 20 66 61 6c 73 65 3b 0d |neFlag =| false;.|
|00000790| 09 0d 09 66 6f 72 20 28 | 20 3b 3b 20 29 20 7b 0d |...for (| ;; ) {.|
|000007a0| 09 09 69 66 20 28 44 6f | 6e 65 46 6c 61 67 29 20 |..if (Do|neFlag) |
|000007b0| 7b 0d 09 09 09 62 72 65 | 61 6b 3b 09 09 2f 2a 20 |{....bre|ak;../* |
|000007c0| 66 72 6f 6d 20 6d 61 69 | 6e 20 65 76 65 6e 74 20 |from mai|n event |
|000007d0| 6c 6f 6f 70 20 2a 2f 0d | 09 09 7d 0d 09 09 2f 2a |loop */.|..}.../*|
|000007e0| 0d 09 09 20 2a 20 4d 61 | 69 6e 20 45 76 65 6e 74 |... * Ma|in Event|
|000007f0| 20 74 61 73 6b 73 3a 0d | 09 09 20 2a 2f 0d 09 09 | tasks:.|.. */...|
|00000800| 53 79 73 74 65 6d 54 61 | 73 6b 28 29 3b 0d 09 09 |SystemTa|sk();...|
|00000810| 74 68 65 41 63 74 69 76 | 65 57 69 6e 64 6f 77 20 |theActiv|eWindow |
|00000820| 3d 20 46 72 6f 6e 74 57 | 69 6e 64 6f 77 28 29 3b |= FrontW|indow();|
|00000830| 09 09 2f 2a 20 55 73 65 | 64 20 6f 66 74 65 6e 2c |../* Use|d often,|
|00000840| 20 61 76 6f 69 64 20 72 | 65 70 65 61 74 65 64 20 | avoid r|epeated |
|00000850| 63 61 6c 6c 73 20 2a 2f | 0d 0d 09 09 52 65 73 75 |calls */|....Resu|
|00000860| 6c 74 20 3d 20 47 65 74 | 4e 65 78 74 45 76 65 6e |lt = Get|NextEven|
|00000870| 74 28 65 76 65 72 79 45 | 76 65 6e 74 2c 20 26 6d |t(everyE|vent, &m|
|00000880| 79 45 76 65 6e 74 29 3b | 0d 0d 09 09 73 77 69 74 |yEvent);|....swit|
|00000890| 63 68 20 28 6d 79 45 76 | 65 6e 74 2e 77 68 61 74 |ch (myEv|ent.what|
|000008a0| 29 20 7b 0d 09 09 09 63 | 61 73 65 20 6d 6f 75 73 |) {....c|ase mous|
|000008b0| 65 44 6f 77 6e 3a 0d 09 | 09 09 09 09 73 77 69 74 |eDown:..|....swit|
|000008c0| 63 68 20 28 46 69 6e 64 | 57 69 6e 64 6f 77 28 6d |ch (Find|Window(m|
|000008d0| 79 45 76 65 6e 74 2e 77 | 68 65 72 65 2c 20 26 77 |yEvent.w|here, &w|
|000008e0| 68 69 63 68 57 69 6e 64 | 6f 77 29 29 20 7b 0d 09 |hichWind|ow)) {..|
|000008f0| 09 09 09 09 63 61 73 65 | 20 69 6e 53 79 73 57 69 |....case| inSysWi|
|00000900| 6e 64 6f 77 3a 0d 09 09 | 09 09 09 09 53 79 73 74 |ndow:...|....Syst|
|00000910| 65 6d 43 6c 69 63 6b 28 | 26 6d 79 45 76 65 6e 74 |emClick(|&myEvent|
|00000920| 2c 20 77 68 69 63 68 57 | 69 6e 64 6f 77 29 3b 0d |, whichW|indow);.|
|00000930| 09 09 09 09 09 09 62 72 | 65 61 6b 3b 0d 0d 09 09 |......br|eak;....|
|00000940| 09 09 09 63 61 73 65 20 | 69 6e 4d 65 6e 75 42 61 |...case |inMenuBa|
|00000950| 72 3a 0d 09 09 09 09 09 | 09 7b 0d 09 09 09 09 09 |r:......|.{......|
|00000960| 09 64 6f 43 6f 6d 6d 61 | 6e 64 28 4d 65 6e 75 53 |.doComma|nd(MenuS|
|00000970| 65 6c 65 63 74 28 6d 79 | 45 76 65 6e 74 2e 77 68 |elect(my|Event.wh|
|00000980| 65 72 65 29 29 3b 0d 09 | 09 09 09 09 09 7d 0d 09 |ere));..|.....}..|
|00000990| 09 09 09 09 09 62 72 65 | 61 6b 3b 0d 0d 09 09 09 |.....bre|ak;.....|
|000009a0| 09 09 63 61 73 65 20 69 | 6e 44 72 61 67 3a 0d 09 |..case i|nDrag:..|
|000009b0| 09 09 09 09 09 44 72 61 | 67 57 69 6e 64 6f 77 28 |.....Dra|gWindow(|
|000009c0| 77 68 69 63 68 57 69 6e | 64 6f 77 2c 20 6d 79 45 |whichWin|dow, myE|
|000009d0| 76 65 6e 74 2e 77 68 65 | 72 65 2c 20 26 64 72 61 |vent.whe|re, &dra|
|000009e0| 67 52 65 63 74 29 3b 0d | 09 09 09 09 09 09 62 72 |gRect);.|......br|
|000009f0| 65 61 6b 3b 0d 0d 09 09 | 09 09 09 63 61 73 65 20 |eak;....|...case |
|00000a00| 69 6e 47 72 6f 77 3a 0d | 09 09 09 09 09 09 2f 2a |inGrow:.|....../*|
|00000a10| 20 54 68 65 72 65 20 69 | 73 20 6e 6f 20 67 72 6f | There i|s no gro|
|00000a20| 77 20 62 6f 78 2e 20 28 | 46 61 6c 6c 20 74 68 72 |w box. (|Fall thr|
|00000a30| 6f 75 67 68 29 20 2a 2f | 0d 0d 09 09 09 09 09 63 |ough) */|.......c|
|00000a40| 61 73 65 20 69 6e 43 6f | 6e 74 65 6e 74 3a 0d 09 |ase inCo|ntent:..|
|00000a50| 09 09 09 09 20 20 69 66 | 20 28 77 68 69 63 68 57 |....  if| (whichW|
|00000a60| 69 6e 64 6f 77 20 21 3d | 20 74 68 65 41 63 74 69 |indow !=| theActi|
|00000a70| 76 65 57 69 6e 64 6f 77 | 29 20 7b 0d 09 09 09 09 |veWindow|) {.....|
|00000a80| 09 09 09 53 65 6c 65 63 | 74 57 69 6e 64 6f 77 28 |...Selec|tWindow(|
|00000a90| 77 68 69 63 68 57 69 6e | 64 6f 77 29 3b 0d 09 09 |whichWin|dow);...|
|00000aa0| 09 09 09 09 7d 0d 09 09 | 09 09 09 64 65 66 61 75 |....}...|...defau|
|00000ab0| 6c 74 3a 0d 09 09 09 09 | 09 09 62 72 65 61 6b 3b |lt:.....|..break;|
|00000ac0| 0d 09 09 09 09 09 7d 2f | 2a 65 6e 64 73 77 20 46 |......}/|*endsw F|
|00000ad0| 69 6e 64 57 69 6e 64 6f | 77 2a 2f 0d 09 09 09 09 |indWindo|w*/.....|
|00000ae0| 09 62 72 65 61 6b 3b 0d | 0d 09 09 09 63 61 73 65 |.break;.|....case|
|00000af0| 20 6b 65 79 44 6f 77 6e | 3a 0d 09 09 09 63 61 73 | keyDown|:....cas|
|00000b00| 65 20 61 75 74 6f 4b 65 | 79 3a 0d 09 09 09 09 69 |e autoKe|y:.....i|
|00000b10| 66 20 28 6d 79 57 69 6e | 64 6f 77 20 3d 3d 20 74 |f (myWin|dow == t|
|00000b20| 68 65 41 63 74 69 76 65 | 57 69 6e 64 6f 77 29 20 |heActive|Window) |
|00000b30| 7b 0d 09 09 09 09 09 69 | 66 20 28 6d 79 45 76 65 |{......i|f (myEve|
|00000b40| 6e 74 2e 6d 6f 64 69 66 | 69 65 72 73 20 26 20 63 |nt.modif|iers & c|
|00000b50| 6d 64 4b 65 79 29 20 7b | 0d 09 09 09 09 09 09 64 |mdKey) {|.......d|
|00000b60| 6f 43 6f 6d 6d 61 6e 64 | 28 4d 65 6e 75 4b 65 79 |oCommand|(MenuKey|
|00000b70| 28 6d 79 45 76 65 6e 74 | 2e 6d 65 73 73 61 67 65 |(myEvent|.message|
|00000b80| 20 26 20 63 68 61 72 43 | 6f 64 65 4d 61 73 6b 29 | & charC|odeMask)|
|00000b90| 29 3b 0d 09 09 09 09 09 | 7d 0d 09 09 09 09 09 7d |);......|}......}|
|00000ba0| 0d 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 09 |.....bre|ak;.....|
|00000bb0| 0d 09 09 09 63 61 73 65 | 20 61 63 74 69 76 61 74 |....case| activat|
|00000bc0| 65 45 76 74 3a 0d 09 09 | 09 09 69 66 20 28 28 57 |eEvt:...|..if ((W|
|00000bd0| 69 6e 64 6f 77 50 74 72 | 29 20 6d 79 45 76 65 6e |indowPtr|) myEven|
|00000be0| 74 2e 6d 65 73 73 61 67 | 65 20 3d 3d 20 6d 79 57 |t.messag|e == myW|
|00000bf0| 69 6e 64 6f 77 29 20 7b | 0d 09 09 09 09 09 69 66 |indow) {|......if|
|00000c00| 20 28 6d 79 45 76 65 6e | 74 2e 6d 6f 64 69 66 69 | (myEven|t.modifi|
|00000c10| 65 72 73 20 26 20 61 63 | 74 69 76 65 46 6c 61 67 |ers & ac|tiveFlag|
|00000c20| 29 20 7b 0d 09 09 09 09 | 09 2f 2a 09 54 45 41 63 |) {.....|./*.TEAc|
|00000c30| 74 69 76 61 74 65 28 54 | 65 78 74 48 29 3b 20 2a |tivate(T|extH); *|
|00000c40| 2f 0d 09 09 09 09 09 09 | 44 69 73 61 62 6c 65 49 |/.......|DisableI|
|00000c50| 74 65 6d 28 4d 79 4d 65 | 6e 75 73 5b 65 64 69 74 |tem(MyMe|nus[edit|
|00000c60| 4d 65 6e 75 5d 2c 20 75 | 6e 64 6f 43 6f 6d 6d 61 |Menu], u|ndoComma|
|00000c70| 6e 64 29 3b 0d 09 09 09 | 09 09 7d 0d 09 09 09 09 |nd);....|..}.....|
|00000c80| 09 7d 0d 09 09 09 09 62 | 72 65 61 6b 3b 0d 0d 09 |.}.....b|reak;...|
|00000c90| 09 09 63 61 73 65 20 75 | 70 64 61 74 65 45 76 74 |..case u|pdateEvt|
|00000ca0| 3a 0d 0d 09 09 09 09 69 | 66 20 28 28 57 69 6e 64 |:......i|f ((Wind|
|00000cb0| 6f 77 50 74 72 29 20 6d | 79 45 76 65 6e 74 2e 6d |owPtr) m|yEvent.m|
|00000cc0| 65 73 73 61 67 65 20 3d | 3d 20 6d 79 57 69 6e 64 |essage =|= myWind|
|00000cd0| 6f 77 29 20 7b 0d 09 09 | 09 09 09 42 65 67 69 6e |ow) {...|...Begin|
|00000ce0| 55 70 64 61 74 65 28 6d | 79 57 69 6e 64 6f 77 29 |Update(m|yWindow)|
|00000cf0| 3b 0d 09 09 09 09 09 20 | 20 20 20 53 65 74 50 6f |;...... |   SetPo|
|00000d00| 72 74 28 6d 79 57 69 6e | 64 6f 77 29 3b 0d 09 09 |rt(myWin|dow);...|
|00000d10| 09 09 09 20 20 20 20 44 | 72 61 77 50 69 63 74 75 |...    D|rawPictu|
|00000d20| 72 65 28 67 43 75 72 72 | 50 69 63 74 2c 20 26 28 |re(gCurr|Pict, &(|
|00000d30| 28 2a 67 43 75 72 72 50 | 69 63 74 29 20 2d 3e 20 |(*gCurrP|ict) -> |
|00000d40| 70 69 63 46 72 61 6d 65 | 29 29 3b 20 2f 2a 20 64 |picFrame|)); /* d|
|00000d50| 72 61 77 20 74 68 65 20 | 74 68 69 6e 67 20 2a 2f |raw the |thing */|
|00000d60| 0d 09 09 09 09 09 45 6e | 64 55 70 64 61 74 65 28 |......En|dUpdate(|
|00000d70| 6d 79 57 69 6e 64 6f 77 | 29 3b 0d 09 09 09 09 7d |myWindow|);.....}|
|00000d80| 0d 09 09 09 64 65 66 61 | 75 6c 74 3a 0d 09 09 09 |....defa|ult:....|
|00000d90| 09 62 72 65 61 6b 3b 0d | 0d 09 09 7d 2f 2a 65 6e |.break;.|...}/*en|
|00000da0| 64 73 77 20 6d 79 45 76 | 65 6e 74 2e 77 68 61 74 |dsw myEv|ent.what|
|00000db0| 2a 2f 0d 0d 09 7d 2f 2a | 65 6e 64 66 6f 72 20 4d |*/...}/*|endfor M|
|00000dc0| 61 69 6e 20 45 76 65 6e | 74 20 6c 6f 6f 70 2a 2f |ain Even|t loop*/|
|00000dd0| 0d 09 72 65 74 75 72 6e | 20 30 3b 09 09 2f 2a 20 |..return| 0;../* |
|00000de0| 52 65 74 75 72 6e 20 66 | 72 6f 6d 20 6d 61 69 6e |Return f|rom main|
|00000df0| 28 29 20 74 6f 20 61 6c | 6c 6f 77 20 43 20 72 75 |() to al|low C ru|
|00000e00| 6e 74 69 6d 65 20 63 6c | 65 61 6e 75 70 20 2a 2f |ntime cl|eanup */|
|00000e10| 0d 7d 0d 0d 76 6f 69 64 | 20 73 65 74 75 70 4d 65 |.}..void| setupMe|
|00000e20| 6e 75 73 28 76 6f 69 64 | 29 0d 7b 0d 09 65 78 74 |nus(void|).{..ext|
|00000e30| 65 72 6e 09 09 4d 65 6e | 75 48 61 6e 64 6c 65 09 |ern..Men|uHandle.|
|00000e40| 4d 79 4d 65 6e 75 73 5b | 5d 3b 0d 09 72 65 67 69 |MyMenus[|];..regi|
|00000e50| 73 74 65 72 09 4d 65 6e | 75 48 61 6e 64 6c 65 09 |ster.Men|uHandle.|
|00000e60| 2a 70 4d 65 6e 75 3b 0d | 0d 09 4d 79 4d 65 6e 75 |*pMenu;.|..MyMenu|
|00000e70| 73 5b 61 70 70 6c 65 4d | 65 6e 75 5d 20 3d 20 47 |s[appleM|enu] = G|
|00000e80| 65 74 4d 65 6e 75 28 61 | 70 70 6c 65 49 44 29 3b |etMenu(a|ppleID);|
|00000e90| 0d 09 41 64 64 52 65 73 | 4d 65 6e 75 28 4d 79 4d |..AddRes|Menu(MyM|
|00000ea0| 65 6e 75 73 5b 61 70 70 | 6c 65 4d 65 6e 75 5d 2c |enus[app|leMenu],|
|00000eb0| 20 28 52 65 73 54 79 70 | 65 29 20 27 44 52 56 52 | (ResTyp|e) 'DRVR|
|00000ec0| 27 29 3b 0d 09 2f 2a 0d | 09 20 2a 20 4e 6f 77 20 |');../*.|. * Now |
|00000ed0| 74 68 65 20 20 6d 65 6e | 75 73 2e 0d 09 20 2a 2f |the  men|us... */|
|00000ee0| 0d 09 20 0d 09 4d 79 4d | 65 6e 75 73 5b 66 69 6c |.. ..MyM|enus[fil|
|00000ef0| 65 4d 65 6e 75 5d 20 3d | 20 47 65 74 4d 65 6e 75 |eMenu] =| GetMenu|
|00000f00| 28 66 69 6c 65 49 44 29 | 3b 0d 09 4d 79 4d 65 6e |(fileID)|;..MyMen|
|00000f10| 75 73 5b 65 64 69 74 4d | 65 6e 75 5d 20 3d 20 47 |us[editM|enu] = G|
|00000f20| 65 74 4d 65 6e 75 28 65 | 64 69 74 49 44 29 3b 0d |etMenu(e|ditID);.|
|00000f30| 09 4d 79 4d 65 6e 75 73 | 5b 73 74 75 66 66 4d 65 |.MyMenus|[stuffMe|
|00000f40| 6e 75 5d 20 3d 20 47 65 | 74 4d 65 6e 75 28 73 74 |nu] = Ge|tMenu(st|
|00000f50| 75 66 66 49 44 29 3b 0d | 0d 09 66 6f 72 20 28 70 |uffID);.|..for (p|
|00000f60| 4d 65 6e 75 20 3d 20 26 | 4d 79 4d 65 6e 75 73 5b |Menu = &|MyMenus[|
|00000f70| 30 5d 3b 20 70 4d 65 6e | 75 20 3c 20 26 4d 79 4d |0]; pMen|u < &MyM|
|00000f80| 65 6e 75 73 5b 6d 65 6e | 75 43 6f 75 6e 74 5d 3b |enus[men|uCount];|
|00000f90| 20 2b 2b 70 4d 65 6e 75 | 29 20 7b 0d 09 09 49 6e | ++pMenu|) {...In|
|00000fa0| 73 65 72 74 4d 65 6e 75 | 28 2a 70 4d 65 6e 75 2c |sertMenu|(*pMenu,|
|00000fb0| 20 30 29 3b 0d 09 7d 0d | 0d 09 44 72 61 77 4d 65 | 0);..}.|..DrawMe|
|00000fc0| 6e 75 42 61 72 28 29 3b | 0d 0d 09 72 65 74 75 72 |nuBar();|...retur|
|00000fd0| 6e 3b 0d 7d 0d 0d 76 6f | 69 64 20 73 68 6f 77 41 |n;.}..vo|id showA|
|00000fe0| 62 6f 75 74 4d 65 44 69 | 61 6c 6f 67 28 76 6f 69 |boutMeDi|alog(voi|
|00000ff0| 64 29 0d 7b 0d 09 47 72 | 61 66 50 74 72 20 09 73 |d).{..Gr|afPtr .s|
|00001000| 61 76 65 50 6f 72 74 3b | 0d 09 44 69 61 6c 6f 67 |avePort;|..Dialog|
|00001010| 50 74 72 09 74 68 65 44 | 69 61 6c 6f 67 3b 0d 09 |Ptr.theD|ialog;..|
|00001020| 73 68 6f 72 74 09 09 69 | 74 65 6d 54 79 70 65 3b |short..i|temType;|
|00001030| 0d 09 48 61 6e 64 6c 65 | 09 09 69 74 65 6d 48 64 |..Handle|..itemHd|
|00001040| 6c 3b 0d 09 52 65 63 74 | 09 09 69 74 65 6d 52 65 |l;..Rect|..itemRe|
|00001050| 63 74 3b 0d 09 73 68 6f | 72 74 09 09 69 74 65 6d |ct;..sho|rt..item|
|00001060| 48 69 74 3b 0d 0d 09 47 | 65 74 50 6f 72 74 28 26 |Hit;...G|etPort(&|
|00001070| 73 61 76 65 50 6f 72 74 | 29 3b 0d 09 74 68 65 44 |savePort|);..theD|
|00001080| 69 61 6c 6f 67 20 3d 20 | 47 65 74 4e 65 77 44 69 |ialog = |GetNewDi|
|00001090| 61 6c 6f 67 28 61 62 6f | 75 74 4d 65 44 4c 4f 47 |alog(abo|utMeDLOG|
|000010a0| 2c 20 6e 69 6c 2c 20 28 | 57 69 6e 64 6f 77 50 74 |, nil, (|WindowPt|
|000010b0| 72 29 20 2d 31 29 3b 0d | 09 53 65 74 50 6f 72 74 |r) -1);.|.SetPort|
|000010c0| 28 74 68 65 44 69 61 6c | 6f 67 29 3b 0d 0d 09 47 |(theDial|og);...G|
|000010d0| 65 74 44 49 74 65 6d 28 | 74 68 65 44 69 61 6c 6f |etDItem(|theDialo|
|000010e0| 67 2c 20 61 75 74 68 6f | 72 49 74 65 6d 2c 20 26 |g, autho|rItem, &|
|000010f0| 69 74 65 6d 54 79 70 65 | 2c 20 26 69 74 65 6d 48 |itemType|, &itemH|
|00001100| 64 6c 2c 20 26 69 74 65 | 6d 52 65 63 74 29 3b 0d |dl, &ite|mRect);.|
|00001110| 09 53 65 74 49 54 65 78 | 74 28 69 74 65 6d 48 64 |.SetITex|t(itemHd|
|00001120| 6c 2c 20 22 5c 70 47 75 | 69 6c 6c 65 72 6d 6f 20 |l, "\pGu|illermo |
|00001130| 41 2e 20 4f 72 74 69 7a | 2c 20 4d 61 63 44 54 53 |A. Ortiz|, MacDTS|
|00001140| 22 29 3b 0d 09 47 65 74 | 44 49 74 65 6d 28 74 68 |");..Get|DItem(th|
|00001150| 65 44 69 61 6c 6f 67 2c | 20 6c 61 6e 67 75 61 67 |eDialog,| languag|
|00001160| 65 49 74 65 6d 2c 20 26 | 69 74 65 6d 54 79 70 65 |eItem, &|itemType|
|00001170| 2c 20 26 69 74 65 6d 48 | 64 6c 2c 20 26 69 74 65 |, &itemH|dl, &ite|
|00001180| 6d 52 65 63 74 29 3b 0d | 09 53 65 74 49 54 65 78 |mRect);.|.SetITex|
|00001190| 74 28 69 74 65 6d 48 64 | 6c 2c 20 22 5c 70 43 22 |t(itemHd|l, "\pC"|
|000011a0| 29 3b 0d 0d 09 64 6f 20 | 7b 0d 09 09 4d 6f 64 61 |);...do |{...Moda|
|000011b0| 6c 44 69 61 6c 6f 67 28 | 6e 69 6c 2c 20 26 69 74 |lDialog(|nil, &it|
|000011c0| 65 6d 48 69 74 29 3b 0d | 09 7d 20 77 68 69 6c 65 |emHit);.|.} while|
|000011d0| 20 28 69 74 65 6d 48 69 | 74 20 21 3d 20 6f 6b 42 | (itemHi|t != okB|
|000011e0| 75 74 74 6f 6e 29 3b 0d | 0d 09 43 6c 6f 73 65 44 |utton);.|..CloseD|
|000011f0| 69 61 6c 6f 67 28 74 68 | 65 44 69 61 6c 6f 67 29 |ialog(th|eDialog)|
|00001200| 3b 0d 0d 09 53 65 74 50 | 6f 72 74 28 73 61 76 65 |;...SetP|ort(save|
|00001210| 50 6f 72 74 29 3b 0d 09 | 72 65 74 75 72 6e 3b 0d |Port);..|return;.|
|00001220| 7d 0d 2f 2a 0d 20 2a 20 | 50 72 6f 63 65 73 73 20 |}./*. * |Process |
|00001230| 6d 6f 75 73 65 20 63 6c | 69 63 6b 73 20 69 6e 20 |mouse cl|icks in |
|00001240| 6d 65 6e 75 20 62 61 72 | 0d 20 2a 2f 0d 20 0d 42 |menu bar|. */. .B|
|00001250| 6f 6f 6c 65 61 6e 20 68 | 69 6c 69 74 65 64 20 3d |oolean h|ilited =|
|00001260| 20 66 61 6c 73 65 3b 0d | 0d 76 6f 69 64 20 64 6f | false;.|.void do|
|00001270| 43 6f 6d 6d 61 6e 64 28 | 6c 6f 6e 67 20 6d 52 65 |Command(|long mRe|
|00001280| 73 75 6c 74 29 0d 7b 0d | 09 6c 6f 6e 67 20 09 09 |sult).{.|.long ..|
|00001290| 09 09 74 68 65 4d 65 6e | 75 2c 20 74 68 65 49 74 |..theMen|u, theIt|
|000012a0| 65 6d 3b 0d 09 75 6e 73 | 69 67 6e 65 64 20 63 68 |em;..uns|igned ch|
|000012b0| 61 72 09 09 64 61 4e 61 | 6d 65 5b 32 35 36 5d 3b |ar..daNa|me[256];|
|000012c0| 0d 09 47 72 61 66 50 74 | 72 20 09 09 09 73 61 76 |..GrafPt|r ...sav|
|000012d0| 65 50 6f 72 74 3b 0d 09 | 65 78 74 65 72 6e 20 4d |ePort;..|extern M|
|000012e0| 65 6e 75 48 61 6e 64 6c | 65 09 4d 79 4d 65 6e 75 |enuHandl|e.MyMenu|
|000012f0| 73 5b 5d 3b 0d 09 65 78 | 74 65 72 6e 20 42 6f 6f |s[];..ex|tern Boo|
|00001300| 6c 65 61 6e 09 09 44 6f | 6e 65 46 6c 61 67 3b 0d |lean..Do|neFlag;.|
|00001310| 09 65 78 74 65 72 6e 20 | 76 6f 69 64 20 09 09 73 |.extern |void ..s|
|00001320| 68 6f 77 41 62 6f 75 74 | 4d 65 44 69 61 6c 6f 67 |howAbout|MeDialog|
|00001330| 28 29 3b 0d 0d 09 74 68 | 65 49 74 65 6d 20 3d 20 |();...th|eItem = |
|00001340| 4c 4f 57 4f 52 44 28 6d | 52 65 73 75 6c 74 29 3b |LOWORD(m|Result);|
|00001350| 0d 09 74 68 65 4d 65 6e | 75 20 3d 20 48 49 57 4f |..theMen|u = HIWO|
|00001360| 52 44 28 6d 52 65 73 75 | 6c 74 29 3b 09 09 2f 2a |RD(mResu|lt);../*|
|00001370| 20 54 68 69 73 20 69 73 | 20 74 68 65 20 72 65 73 | This is| the res|
|00001380| 6f 75 72 63 65 20 49 44 | 20 2a 2f 0d 0d 09 73 77 |ource ID| */...sw|
|00001390| 69 74 63 68 20 28 74 68 | 65 4d 65 6e 75 29 20 7b |itch (th|eMenu) {|
|000013a0| 0d 09 09 63 61 73 65 20 | 61 70 70 6c 65 49 44 3a |...case |appleID:|
|000013b0| 0d 09 09 09 69 66 20 28 | 74 68 65 49 74 65 6d 20 |....if (|theItem |
|000013c0| 3d 3d 20 61 62 6f 75 74 | 4d 65 43 6f 6d 6d 61 6e |== about|MeComman|
|000013d0| 64 29 20 7b 0d 09 09 09 | 09 73 68 6f 77 41 62 6f |d) {....|.showAbo|
|000013e0| 75 74 4d 65 44 69 61 6c | 6f 67 28 29 3b 0d 09 09 |utMeDial|og();...|
|000013f0| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 09 09 47 65 |.} else |{.....Ge|
|00001400| 74 49 74 65 6d 28 4d 79 | 4d 65 6e 75 73 5b 61 70 |tItem(My|Menus[ap|
|00001410| 70 6c 65 4d 65 6e 75 5d | 2c 20 74 68 65 49 74 65 |pleMenu]|, theIte|
|00001420| 6d 2c 20 64 61 4e 61 6d | 65 29 3b 0d 09 09 09 09 |m, daNam|e);.....|
|00001430| 47 65 74 50 6f 72 74 28 | 26 73 61 76 65 50 6f 72 |GetPort(|&savePor|
|00001440| 74 29 3b 0d 09 09 09 09 | 28 76 6f 69 64 29 20 4f |t);.....|(void) O|
|00001450| 70 65 6e 44 65 73 6b 41 | 63 63 28 64 61 4e 61 6d |penDeskA|cc(daNam|
|00001460| 65 29 3b 0d 09 09 09 09 | 53 65 74 50 6f 72 74 28 |e);.....|SetPort(|
|00001470| 73 61 76 65 50 6f 72 74 | 29 3b 0d 09 09 09 7d 0d |savePort|);....}.|
|00001480| 09 09 09 62 72 65 61 6b | 3b 0d 0d 09 09 63 61 73 |...break|;....cas|
|00001490| 65 20 66 69 6c 65 49 44 | 3a 0d 09 09 09 73 77 69 |e fileID|:....swi|
|000014a0| 74 63 68 20 28 74 68 65 | 49 74 65 6d 29 20 7b 0d |tch (the|Item) {.|
|000014b0| 09 09 09 09 63 61 73 65 | 20 70 72 69 6e 74 43 6f |....case| printCo|
|000014c0| 6d 6d 61 6e 64 3a 0d 09 | 09 09 09 09 62 72 65 61 |mmand:..|....brea|
|000014d0| 6b 3b 0d 09 09 09 09 63 | 61 73 65 20 70 61 67 65 |k;.....c|ase page|
|000014e0| 43 6f 6d 6d 61 6e 64 3a | 0d 09 09 09 09 09 62 72 |Command:|......br|
|000014f0| 65 61 6b 3b 0d 09 09 09 | 09 63 61 73 65 20 71 75 |eak;....|.case qu|
|00001500| 69 74 43 6f 6d 6d 61 6e | 64 3a 0d 09 09 09 09 09 |itComman|d:......|
|00001510| 44 6f 6e 65 46 6c 61 67 | 20 3d 20 74 72 75 65 3b |DoneFlag| = true;|
|00001520| 09 09 09 2f 2a 20 52 65 | 71 75 65 73 74 20 65 78 |.../* Re|quest ex|
|00001530| 69 74 20 2a 2f 0d 09 09 | 09 09 09 62 72 65 61 6b |it */...|...break|
|00001540| 3b 0d 09 09 09 09 64 65 | 66 61 75 6c 74 3a 0d 09 |;.....de|fault:..|
|00001550| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 7d 0d |....brea|k;....}.|
|00001560| 09 09 09 62 72 65 61 6b | 3b 0d 0d 09 09 63 61 73 |...break|;....cas|
|00001570| 65 20 65 64 69 74 49 44 | 3a 0d 09 09 09 2f 2a 0d |e editID|:..../*.|
|00001580| 09 09 09 20 2a 20 49 66 | 20 74 68 69 73 20 69 73 |... * If| this is|
|00001590| 20 66 6f 72 20 61 20 27 | 73 74 61 6e 64 61 72 64 | for a '|standard|
|000015a0| 27 20 65 64 69 74 20 69 | 74 65 6d 2c 0d 09 09 09 |' edit i|tem,....|
|000015b0| 20 2a 20 72 75 6e 20 69 | 74 20 74 68 72 6f 75 67 | * run i|t throug|
|000015c0| 68 20 53 79 73 74 65 6d | 45 64 69 74 20 66 69 72 |h System|Edit fir|
|000015d0| 73 74 2e 0d 09 09 09 20 | 2a 20 53 79 73 74 65 6d |st..... |* System|
|000015e0| 45 64 69 74 20 77 69 6c | 6c 20 72 65 74 75 72 6e |Edit wil|l return|
|000015f0| 20 46 41 4c 53 45 20 69 | 66 20 69 74 27 73 20 6e | FALSE i|f it's n|
|00001600| 6f 74 20 61 20 73 79 73 | 74 65 6d 20 77 69 6e 64 |ot a sys|tem wind|
|00001610| 6f 77 2e 0d 09 09 09 20 | 2a 2f 0d 09 09 09 69 66 |ow..... |*/....if|
|00001620| 20 28 28 74 68 65 49 74 | 65 6d 20 3c 3d 20 63 6c | ((theIt|em <= cl|
|00001630| 65 61 72 43 6f 6d 6d 61 | 6e 64 29 20 26 26 20 53 |earComma|nd) && S|
|00001640| 79 73 74 65 6d 45 64 69 | 74 28 74 68 65 49 74 65 |ystemEdi|t(theIte|
|00001650| 6d 2d 31 29 29 20 7b 0d | 09 09 09 09 62 72 65 61 |m-1)) {.|....brea|
|00001660| 6b 3b 0d 09 09 09 7d 0d | 09 09 09 73 77 69 74 63 |k;....}.|...switc|
|00001670| 68 20 28 74 68 65 49 74 | 65 6d 29 20 7b 0d 09 09 |h (theIt|em) {...|
|00001680| 09 09 63 61 73 65 20 75 | 6e 64 6f 43 6f 6d 6d 61 |..case u|ndoComma|
|00001690| 6e 64 3a 0d 09 09 09 09 | 63 61 73 65 20 63 75 74 |nd:.....|case cut|
|000016a0| 43 6f 6d 6d 61 6e 64 3a | 0d 09 09 09 09 63 61 73 |Command:|.....cas|
|000016b0| 65 20 63 6f 70 79 43 6f | 6d 6d 61 6e 64 3a 0d 09 |e copyCo|mmand:..|
|000016c0| 09 09 09 63 61 73 65 20 | 70 61 73 74 65 43 6f 6d |...case |pasteCom|
|000016d0| 6d 61 6e 64 3a 0d 09 09 | 09 09 63 61 73 65 20 63 |mand:...|..case c|
|000016e0| 6c 65 61 72 43 6f 6d 6d | 61 6e 64 3a 0d 09 09 09 |learComm|and:....|
|000016f0| 09 64 65 66 61 75 6c 74 | 3a 0d 09 09 09 09 09 62 |.default|:......b|
|00001700| 72 65 61 6b 3b 0d 09 09 | 09 7d 20 2f 2a 65 6e 64 |reak;...|.} /*end|
|00001710| 73 77 20 74 68 65 49 74 | 65 6d 2a 2f 0d 09 09 09 |sw theIt|em*/....|
|00001720| 62 72 65 61 6b 3b 0d 0d | 09 09 63 61 73 65 20 73 |break;..|..case s|
|00001730| 74 75 66 66 49 44 3a 0d | 09 09 09 2f 2a 20 75 6e |tuffID:.|.../* un|
|00001740| 63 68 65 63 6b 20 61 6c | 6c 20 74 68 65 20 69 74 |check al|l the it|
|00001750| 65 6d 73 20 74 6f 20 62 | 65 67 69 6e 20 77 69 74 |ems to b|egin wit|
|00001760| 68 20 2a 2f 0d 09 09 09 | 43 68 65 63 6b 49 74 65 |h */....|CheckIte|
|00001770| 6d 28 4d 79 4d 65 6e 75 | 73 5b 73 74 75 66 66 4d |m(MyMenu|s[stuffM|
|00001780| 65 6e 75 5d 2c 20 6d 55 | 6e 6d 6f 64 50 69 63 74 |enu], mU|nmodPict|
|00001790| 2c 20 66 61 6c 73 65 29 | 3b 0d 09 09 09 43 68 65 |, false)|;....Che|
|000017a0| 63 6b 49 74 65 6d 28 4d | 79 4d 65 6e 75 73 5b 73 |ckItem(M|yMenus[s|
|000017b0| 74 75 66 66 4d 65 6e 75 | 5d 2c 20 6d 4e 6f 43 6c |tuffMenu|], mNoCl|
|000017c0| 75 74 50 69 63 74 2c 20 | 66 61 6c 73 65 29 3b 0d |utPict, |false);.|
|000017d0| 09 09 09 43 68 65 63 6b | 49 74 65 6d 28 4d 79 4d |...Check|Item(MyM|
|000017e0| 65 6e 75 73 5b 73 74 75 | 66 66 4d 65 6e 75 5d 2c |enus[stu|ffMenu],|
|000017f0| 20 6d 43 6c 75 74 50 69 | 63 74 2c 20 66 61 6c 73 | mClutPi|ct, fals|
|00001800| 65 29 3b 0d 09 09 09 0d | 09 09 09 73 77 69 74 63 |e);.....|...switc|
|00001810| 68 20 28 74 68 65 49 74 | 65 6d 29 20 7b 0d 09 09 |h (theIt|em) {...|
|00001820| 09 09 63 61 73 65 20 6d | 55 6e 6d 6f 64 50 69 63 |..case m|UnmodPic|
|00001830| 74 3a 0d 09 09 09 09 09 | 20 67 43 75 72 72 50 69 |t:......| gCurrPi|
|00001840| 63 74 20 3d 20 67 4f 72 | 69 67 50 69 63 74 3b 09 |ct = gOr|igPict;.|
|00001850| 2f 2a 20 64 72 61 77 20 | 6f 66 20 6f 72 69 67 69 |/* draw |of origi|
|00001860| 6e 61 6c 20 70 69 63 74 | 20 2a 2f 0d 09 09 09 09 |nal pict| */.....|
|00001870| 09 20 49 6e 76 61 6c 52 | 65 63 74 28 26 28 6d 79 |. InvalR|ect(&(my|
|00001880| 57 69 6e 64 6f 77 2d 3e | 70 6f 72 74 52 65 63 74 |Window->|portRect|
|00001890| 29 29 3b 09 0d 09 09 09 | 09 09 20 6d 79 57 69 6e |));.....|.. myWin|
|000018a0| 64 6f 77 20 2d 3e 20 67 | 72 61 66 50 72 6f 63 73 |dow -> g|rafProcs|
|000018b0| 20 3d 20 6e 69 6c 3b 0d | 09 09 09 09 09 20 43 68 | = nil;.|..... Ch|
|000018c0| 65 63 6b 49 74 65 6d 28 | 4d 79 4d 65 6e 75 73 5b |eckItem(|MyMenus[|
|000018d0| 73 74 75 66 66 4d 65 6e | 75 5d 2c 20 6d 55 6e 6d |stuffMen|u], mUnm|
|000018e0| 6f 64 50 69 63 74 2c 20 | 74 72 75 65 29 3b 0d 09 |odPict, |true);..|
|000018f0| 09 09 09 09 20 62 72 65 | 61 6b 3b 0d 09 09 09 09 |.... bre|ak;.....|
|00001900| 63 61 73 65 20 6d 4e 6f | 43 6c 75 74 50 69 63 74 |case mNo|ClutPict|
|00001910| 3a 0d 09 09 09 09 09 20 | 67 43 75 72 72 50 69 63 |:...... |gCurrPic|
|00001920| 74 20 3d 20 67 4d 6f 64 | 50 69 63 74 3b 09 2f 2a |t = gMod|Pict;./*|
|00001930| 20 64 72 61 77 20 6f 66 | 20 63 6c 75 74 20 6c 65 | draw of| clut le|
|00001940| 73 73 20 70 69 63 74 20 | 2a 2f 0d 09 09 09 09 09 |ss pict |*/......|
|00001950| 20 49 6e 76 61 6c 52 65 | 63 74 28 26 28 6d 79 57 | InvalRe|ct(&(myW|
|00001960| 69 6e 64 6f 77 2d 3e 70 | 6f 72 74 52 65 63 74 29 |indow->p|ortRect)|
|00001970| 29 3b 09 0d 09 09 09 09 | 09 20 6d 79 57 69 6e 64 |);......|. myWind|
|00001980| 6f 77 20 2d 3e 20 67 72 | 61 66 50 72 6f 63 73 20 |ow -> gr|afProcs |
|00001990| 3d 20 6e 69 6c 3b 0d 09 | 09 09 09 09 20 43 68 65 |= nil;..|.... Che|
|000019a0| 63 6b 49 74 65 6d 28 4d | 79 4d 65 6e 75 73 5b 73 |ckItem(M|yMenus[s|
|000019b0| 74 75 66 66 4d 65 6e 75 | 5d 2c 20 6d 4e 6f 43 6c |tuffMenu|], mNoCl|
|000019c0| 75 74 50 69 63 74 2c 20 | 74 72 75 65 29 3b 0d 09 |utPict, |true);..|
|000019d0| 09 09 09 09 20 62 72 65 | 61 6b 3b 0d 09 09 09 09 |.... bre|ak;.....|
|000019e0| 63 61 73 65 20 6d 43 6c | 75 74 50 69 63 74 3a 0d |case mCl|utPict:.|
|000019f0| 09 09 09 09 09 20 67 43 | 75 72 72 50 69 63 74 20 |..... gC|urrPict |
|00001a00| 3d 20 67 4d 6f 64 50 69 | 63 74 3b 09 2f 2a 20 64 |= gModPi|ct;./* d|
|00001a10| 72 61 77 20 6f 66 20 63 | 6c 75 74 20 6c 65 73 73 |raw of c|lut less|
|00001a20| 20 70 69 63 74 20 2a 2f | 0d 09 09 09 09 09 20 49 | pict */|...... I|
|00001a30| 6e 76 61 6c 52 65 63 74 | 28 26 28 6d 79 57 69 6e |nvalRect|(&(myWin|
|00001a40| 64 6f 77 2d 3e 70 6f 72 | 74 52 65 63 74 29 29 3b |dow->por|tRect));|
|00001a50| 0d 09 09 09 09 09 20 2f | 2a 20 62 75 74 20 75 73 |...... /|* but us|
|00001a60| 65 20 74 68 65 20 70 72 | 6f 63 20 74 6f 20 61 64 |e the pr|oc to ad|
|00001a70| 64 20 63 6f 6c 6f 72 20 | 74 61 62 6c 65 20 74 6f |d color |table to|
|00001a80| 20 69 74 20 2a 2f 0d 09 | 09 09 09 09 20 6d 79 57 | it */..|.... myW|
|00001a90| 69 6e 64 6f 77 20 2d 3e | 20 67 72 61 66 50 72 6f |indow ->| grafPro|
|00001aa0| 63 73 20 3d 20 28 51 44 | 50 72 6f 63 73 50 74 72 |cs = (QD|ProcsPtr|
|00001ab0| 29 28 26 20 6d 79 50 72 | 6f 63 73 29 3b 20 0d 09 |)(& myPr|ocs); ..|
|00001ac0| 09 09 09 09 20 43 68 65 | 63 6b 49 74 65 6d 28 4d |.... Che|ckItem(M|
|00001ad0| 79 4d 65 6e 75 73 5b 73 | 74 75 66 66 4d 65 6e 75 |yMenus[s|tuffMenu|
|00001ae0| 5d 2c 20 6d 43 6c 75 74 | 50 69 63 74 2c 20 74 72 |], mClut|Pict, tr|
|00001af0| 75 65 29 3b 0d 09 09 09 | 09 09 20 62 72 65 61 6b |ue);....|.. break|
|00001b00| 3b 0d 09 09 09 09 64 65 | 66 61 75 6c 74 3a 0d 09 |;.....de|fault:..|
|00001b10| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 7d 0d |....brea|k;....}.|
|00001b20| 09 09 09 62 72 65 61 6b | 3b 0d 0d 09 09 64 65 66 |...break|;....def|
|00001b30| 61 75 6c 74 3a 0d 09 09 | 09 62 72 65 61 6b 3b 0d |ault:...|.break;.|
|00001b40| 0d 09 7d 2f 2a 65 6e 64 | 73 77 20 74 68 65 4d 65 |..}/*end|sw theMe|
|00001b50| 6e 75 2a 2f 0d 0d 09 48 | 69 6c 69 74 65 4d 65 6e |nu*/...H|iliteMen|
|00001b60| 75 28 30 29 3b 0d 0d 09 | 72 65 74 75 72 6e 3b 0d |u(0);...|return;.|
|00001b70| 7d 0d 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |}.......|........|
|00001b80| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00001b90| 63 61 6c 20 42 6f 6f 6c | 65 61 6e 20 45 76 65 6e |cal Bool|ean Even|
|00001ba0| 74 41 76 61 69 6c 28 65 | 76 65 6e 74 4d 61 73 6b |tAvail(e|ventMask|
|00001bb0| 0b 53 69 6d 70 6c 65 49 | 6e 43 2e 63 02 00 00 00 |.SimpleI|nC.c....|
|00001bc0| 54 45 58 54 4d 4d 43 43 | 01 00 00 34 00 80 00 00 |TEXTMMCC|...4....|
|00001bd0| 00 00 54 45 58 54 4d 4d | 43 43 01 00 00 34 00 80 |..TEXTMM|CC...4..|
|00001be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bf0| 00 00 9c 9d 49 40 00 00 | 1a f3 00 00 01 ac 69 64 |....I@..|......id|
|00001c00| 20 47 65 74 4d 6f 75 73 | 65 28 6d 6f 75 73 65 4c | GetMous|e(mouseL|
|00001c10| 6f 63 29 0d 09 50 6f 69 | 6e 74 20 2a 6d 6f 75 73 |oc)..Poi|nt *mous|
|00001c20| 65 4c 6f 63 3b 0d 09 65 | 78 74 65 72 6e 20 30 78 |eLoc;..e|xtern 0x|
|00001c30| 41 39 37 32 3b 0d 70 61 | 73 63 61 6c 20 42 6f 6f |A972;.pa|scal Boo|
|00001c40| 6c 65 61 6e 20 42 75 74 | 74 6f 6e 28 29 0d 09 65 |lean But|ton()..e|
|00001c50| 78 74 65 72 6e 20 30 78 | 41 39 37 34 3b 0d 70 61 |xtern 0x|A974;.pa|
|00001c60| 73 63 61 6c 20 42 6f 6f | 6c 65 61 6e 20 53 74 69 |scal Boo|lean Sti|
|00001c70| 6c 6c 44 6f 77 6e 28 29 | 0d 09 65 78 74 65 72 6e |llDown()|..extern|
|00001c80| 00 00 00 1e 00 37 00 e3 | 03 4c 03 34 00 37 00 e3 |.....7..|.L.4.7..|
|00001c90| 03 4c 03 34 00 00 14 c9 | 00 00 00 00 00 00 00 00 |.L.4....|........|
|00001ca0| 00 00 00 00 00 48 00 09 | 4d 6f 6e 61 63 6f 00 00 |.....H..|Monaco..|
|00001cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cc0| 00 00 00 00 00 00 00 00 | 00 03 00 04 00 56 00 09 |........|.....V..|
|00001cd0| 01 dc 02 6d 00 56 00 09 | 01 dc 02 6d aa 8d 1a 21 |...m.V..|...m...!|
|00001ce0| 00 00 1a 34 00 00 1a 3b | 00 00 17 b3 01 00 00 00 |...4...;|........|
|00001cf0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 f0 |.....n..|.n...>..|
|00001d00| 36 64 25 76 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |6d%v....|.>..MPSR|
|00001d10| 00 01 00 0a 03 f0 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00001d20| 03 ed ff ff 00 00 00 22 | 00 00 00 00 00 00 00 00 |......."|........|
|00001d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+